Casos por Departamento

A continuación se muestran la cantidad de casos de COVID-19 confirmados por el Ministerio de Salud de Entre Ríos, discriminados por departamento y localidad

Departamental

  covider <- covid_er %>% group_by(DEPARTAMENTO) %>%
    mutate(cantidad=n()) %>% select(DEPARTAMENTO, cantidad) %>% unique()
  
  
  highchart() %>%
    hc_title(text = "<i>Casos de COVID-19 en Entre Ríos</i> ",
             margin = 20, align = "center", style = list(color = "#08338F", useHTML = TRUE)) %>%
    hc_tooltip(followPointer =  FALSE) %>%
    hc_add_series_map(entrerios, covider, name = "Casos", value = "cantidad",
                      joinBy = c("nam", "DEPARTAMENTO"),
                      dataLabels = list(enabled = TRUE,
                                        format = '{point.properties.nam}: {point.value}')) %>%
    hc_colorAxis(minColor = "#B7D4EB", maxColor = "#08338F")  %>%
    hc_legend(align = "center", x = 0, y = -10) %>%
    hc_mapNavigation(enabled = TRUE) %>%
    hc_add_theme(hc_theme_ffx()) %>% 
    hc_add_annotation(xValue = 0, yValue = 0, title = list(text = 'Fuente: Ministerio Salud ER')) %>% 
    hc_chart(borderColor = "#08338F", borderRadius = 10, borderWidth = 2)

Por Ciudad

Incidencia Acumulada

En Argentina, la tasa de incidencia acumulada nacional es de 9.76 cada 100 mil habitantes. La Incidencia Acumulada de toda la provincia de Entre Ríos es de 1.8 cada 100.000 habitantes.

La incidencia acumulada (IA) a nivel departamental, considerando la población proyectada por INDEC para el 2020 se observan en el mapa y tabla a continuación

Mapa

   covid_er_ia <- covider %>% left_join(poblac_er, by=c("DEPARTAMENTO"="departamento")) %>% 
       mutate(ia= round(cantidad/poblacion * 100000, 2)) %>% arrange(desc(ia))

   highchart() %>%
    hc_title(text = "<i>Incidencia Acumulada de COVID-19 en Entre Ríos</i> ",
             margin = 20, align = "center", style = list(color = "#780000", useHTML = TRUE)) %>%
    hc_tooltip(followPointer =  FALSE) %>%
    hc_add_series_map(entrerios, covid_er_ia, name = "Incidencia", value = "ia",
                      joinBy = c("nam", "DEPARTAMENTO"),
                      dataLabels = list(enabled = TRUE,
                                        format = '{point.properties.nam}: {point.value}')) %>%
    hc_colorAxis(minColor = "#FFAAAA", maxColor = "#780000")  %>%
    hc_legend(align = "center", x = 0, y = -10) %>%
    hc_mapNavigation(enabled = TRUE) %>%
    hc_add_theme(hc_theme_ffx()) %>% 
    hc_add_annotation(xValue = 0, yValue = 0, title = list(text = 'Fuente: Ministerio Salud ER')) %>% 
    hc_chart(borderColor = "#780000", borderRadius = 10, borderWidth = 2)

Tabla

 tabiaprov_er <- covid_er_ia %>% select(DEPARTAMENTO, poblacion, cantidad, ia) %>% arrange(desc(ia))
  tabiaprov_er %>% kable(col.names = c("Departemento","Población",  "Casos", "Tasa Incidencia"),
                      format.args = list( big.mark=".", decimal.mark = ","),
            align=c('l', 'c', 'c', 'c')) %>%
  kable_styling()
Departemento Población Casos Tasa Incidencia
Islas del Ibicuy 13.420 1 7,45
Gualeguay 58.565 3 5,12
Gualeguaychú 124.231 5 4,02
Diamante 51.384 2 3,89
Colón 77.039 3 3,89
Villaguay 52.651 2 3,80
Nogoyá 41.304 1 2,42
Paraná 376.912 6 1,59
La Paz 72.051 1 1,39
Concordia 191.117 1 0,52